Shareware Grab Bag/Shareware Grab Bag.iso/003/pssst.arc/PSCONFIG.PRG

Text File | 1986-07-17 | 6.0 KB | 201 lines

* PSCONFIG.PRG
*
* A DBASE II 16BIT COMMAND FILE that allows the user to configure for
* single user operation, printer codes, backup drive selection, and
* IBM compatability.
*
*
* Version 1
* By LTC Denny Hugg
* ANGSC/DOS Andrews AFB MD 16 Jul 1985
*
* Version 2
* modified by Maj Jim McMurry
* ANGSC/DOSC Truax Field, WI 15 Jun 1986
*
ERASE
SET TALK OFF
SET ECHO OFF
SET BELL OFF
SET COLON OFF
USE PSCONFIG.MEM
GO TOP
STORE ' ' TO flag
IF *
   RECALL
   STORE 'Y' TO flag
ENDIF
STORE $(STR(1,81),1,80) TO gclearline
IF model = ' '
   @  2,13 SAY 'p S S S t   C O N F I G U R A T I O N   P R O G R A M'
ELSE
   STORE model TO gmodel
   STORE 'p S S S t   C O N F I G U R A T I O N   P R O G R A M' TO heading
   DO PSHEADING
ENDIF
STORE  8 TO line
STORE ' ' TO environ
DO WHILE .NOT. environ$('SM')
   @ 22, 5 SAY 'Do You Want To Configure For A (S)ingle Or (M)ulti-User ';
                 + 'Environment? ';
             GET environ PICTURE '!'
   READ NOUPDATE
ENDDO
IF environ = 'S'
   @ 22, 0 SAY gclearline
   @ line,10 SAY 'Single User Configuration.'
   STORE line + 1 TO line
   REPLACE firstname WITH '          '
   @ 21,26 SAY 'Change To Lower Case Letters'
   @ 22,25 SAY 'Enter Your First Name ';
           GET firstname PICTURE '!AAAAAAAAA'
   READ
   @ 21, 0 SAY gclearline
   @ 22, 0 SAY gclearline
   STORE '           ' TO mfilename
   @ 22,24 SAY 'Enter Your Last Name ';
             GET mfilename PICTURE '!!!!!!!!!!!'
   READ
   STORE TRIM(mfilename) TO mfilename
* --- create a standard length filename for the guy
   IF LEN(mfilename) < 6
      STORE '000000' TO msixblnks
      STORE $(mfilename,1,LEN(mfilename));
          + $(msixblnks,1,6-LEN(mfilename)) TO mfilename
      STORE $(mfilename,1,6) TO gaddstring
   ELSE
      STORE $(mfilename,1,6) TO gaddstring
   ENDIF
   REPLACE namestring WITH gaddstring
   @ 22, 0 SAY gclearline
   @ line,10 SAY 'Your Files Will Be Stored With The ' + gaddstring + ;
                 + ' Prefix, ' + TRIM(firstname)
   STORE line + 1 TO line
ELSE
   REPLACE firstname WITH '          '
   REPLACE namestring WITH '      '
   @ 22, 0 SAY gclearline
   @ line,10 SAY 'Configured For Mulit-Users.'
   STORE line + 1 TO line
ENDIF
STORE ' ' TO select
@ 22,15 SAY 'What Drive Do You Normally Use To Back-Up Data? ';
          GET select PICTURE '!'
READ
REPLACE back:drive WITH select
@ 22, 0 SAY gclearline
IF select = ' '
   @ line,10 SAY 'Backup Drive Not Specified.'
ELSE
   @ line,10 SAY 'Your Data Will Be Copied To Drive ' + back:drive + ' When ';
              + 'Backup Is Desired.'
ENDIF
STORE line + 1 TO line
STORE ' ' TO printer
DO WHILE .NOT. printer$('OMGU')
   @ 22, 9 SAY 'Select (O)kidata, (M)pi, (G)enicom, (U)ser Defined ';
                + 'Printer :';
            GET printer PICTURE '!'
   READ
   @ 22, 0 SAY gclearline
ENDDO
DO CASE
   CASE printer = "O"
      @ line,10 SAY 'Configured For An Okidata 83A Printer.'
      STORE line + 1 TO line
      REPLACE condensed WITH 'CHR(29)'
      REPLACE norm:print WITH 'CHR(30)'
   CASE printer = "M"
      @ line,10 SAY 'Configured For An MPI Printer.'
      STORE line + 1 TO line
      REPLACE condensed WITH "CHR(27)+CHR(65)+CHR(48)+CHR(55)"
      REPLACE norm:print WITH "CHR(27)+CHR(65)+CHR(48)+CHR(48)"
   CASE printer = 'G'
      @ line,10 SAY 'Configured For A Genicom 3184 Printer.'
      STORE line + 1 TO line
      REPLACE condensed WITH 'CHR(15)'
      REPLACE norm:print WITH 'CHR(64)'
   CASE printer = "U"
      @ line    ,10 SAY 'User Defined Printer.'
      STORE line + 1 TO line
      STORE '                              ' TO select
      @ 21, 5 SAY 'Enter Decimal Code For Condensed Print ';
                GET select PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
      @ 22,45 SAY 'Example : CHR(15)'
      READ
      REPLACE condensed WITH TRIM(select)
      @ 21, 0 SAY gclearline
      @ 22, 0 SAY gclearline
      @ line    ,10 SAY 'Your Condensed Print Code Is '+Trim(select)+'.'
      STORE line + 1 TO line
      STORE '                              ' TO select
      @ 21, 1 SAY 'Enter Code For Reset To Initial Power On State ';
                    GET select PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
      @ 22,49 SAY 'Example : CHR(64)'
      READ
      REPLACE norm:print WITH TRIM(select)
      @ 21, 0 SAY gclearline
      @ 22, 0 SAY gclearline
      @ line    ,10 SAY 'Your Code For Back To Normal Print Is '+;
                         TRIM(select)+'.'
      STORE line + 1 TO line
ENDCASE
STORE ' ' TO select
DO WHILE .NOT. select$('ZIO')
   @ 22, 3 SAY 'Are You Using A (Z)enith Z-100, an (I)BM Compatable or ';
               +'(O)ther Computer? ';
           GET select PICTURE '!'
   READ
ENDDO
REPLACE model WITH select
@ 22, 0 SAY gclearline
DO CASE
   CASE select = 'Z'
      @ line,10 SAY 'Zenith Z-100 Computer.'
   CASE select = 'I'
      @ line,10 SAY 'IBM Or Other Zenith PC Compatable Computer.'
   CASE select = 'O'
      @ line,10 SAY 'Graphics Not Available.'
ENDCASE
STORE line + 1 TO line
REPLACE model WITH select
REPLACE delays WITH ' '
DO WHILE .NOT. delays $('SML')
   @ 22, 9 SAY 'Do You Want (S)hort, (M)edium, Or (L)ong Delays On Messages? ';
           GET delays PICTURE '!'
   READ
ENDDO
@ 22, 0 SAY gclearline
DO CASE
   CASE delays = 'S'
        @ line,10 SAY 'Message Delays Will Be Short.'
   CASE delays = 'M'
        @ line,10 SAY 'Message Delays Will Be Medium.'
   CASE delays = 'L'
        @ line,10 SAY 'Message Delays Will Be Long.'
ENDCASE
@ 21,21 SAY "You Now Are Configured For pSSSt ... "
@ 22,12 SAY 'You May Re-Run This Program At Any Time To Re-Configure'
STORE 0 TO timer
DO WHILE timer < 100
   STORE timer + 1 TO timer
ENDDO
ERASE
* --- we're using the delete flag to see if we were sent from another module
IF flag = 'Y'
   USE
   RETURN
ELSE
   USE
   QUIT
ENDIF
* EOF PSCONFIG.PRG


T ECHO OFF
SET BELL OFF
SET COLON OFF
USE PSCONFIG.MEM
STORE $(STR(1,81),1,80) TO gclearline
IF model = ' '
   @  2,13 SAY 'p S S